home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / hash.zip / LIST.3 < prev    next >
Text File  |  1993-01-04  |  1KB  |  25 lines
  1. C       ************************************************************
  2. C       *                                                          *
  3. C       * A SUBROUTINE TO CALCULATE A HASH VALUE BETWEEN           *
  4. C       * 0 AND 60                                                 *
  5. C       *                                                          *
  6. C       *                                                          *
  7. C       * INPUT:  KEY - FOUR BYTES OF CHARACTER DATA TO BE HASHED  *
  8. C       *                                                          *
  9. C       *                                                          *
  10. C       * OUTPUT: INDEX - AN INTEGER VALUE BETWEEN 0 AND 60        *
  11. C       *                                                          *
  12. C       ************************************************************ 
  13. C
  14.     SUBROUTINE HASH(KEY,INDEX)
  15.     CHARACTER KEY*4,WKEY*4
  16.     INTEGER*2 INDEX,IKEY(2),EOR
  17.     EQUIVALENCE (WKEY,IKEY)
  18.     WKEY=KEY
  19.         IKEY(1)=EOR(IKEY(1),IKEY(2))
  20.         INDEX=MOD(IKEY(1),61)
  21.     RETURN    
  22.     END
  23.  
  24.  
  25.